home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1999 March / EnigmA AMIGA RUN 35 (1999)(G.R. Edizioni)(IT)[!][issue 1999-03].iso / earcd / -archivi / -recent1 / nsm_tnw041b.lha / tracknameswindow / copytrack.c < prev    next >
C/C++ Source or Header  |  1999-01-09  |  536b  |  42 lines
  1. /*
  2.     Copies the current track and trackname.
  3.  
  4.     Link with annomanno.o, /octacontrol.o
  5.    and /readstr.o.
  6.  
  7.     Recommended shortcut: Alt+c
  8.  
  9.     Made by Kjetil S. Matheussen 9.1.99.
  10.  
  11.     e-mail: kjetilma@ifi.uio.no
  12.  
  13.     Address:
  14.     Kjetil S. Matheussen
  15.     5423 Sogn Studentby
  16.     0858 Oslo
  17.     Norway
  18. */
  19.  
  20.  
  21.  
  22. #include "tracknameswindow.h"
  23.  
  24. void main(void){
  25.     OCTABASE ob;
  26.  
  27.     UWORD currtrack;
  28.  
  29.     if((ob=getoctabase())==0) goto exit;
  30.  
  31.     currtrack=getcurrtrack(ob);
  32.  
  33.     sendrexx("RN_COPY TRACK");
  34.     settracknamedata2(ob,currtrack);
  35.     settracknamedata(ob,GETBUF);
  36.  
  37.  
  38. exit:
  39. }
  40.  
  41.  
  42.